home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / docs / winer / chap11-3.bas < prev    next >
Encoding:
BASIC Source File  |  1992-05-13  |  383 b   |  17 lines
  1. '*********** CHAP11-3.BAS - demonstrates getting the current default drive
  2.  
  3. 'Copyright (c) 1992 Ethan Winer
  4.  
  5. DEFINT A-Z
  6.  
  7. '$INCLUDE: 'REGTYPE.BI'
  8. DIM Registers AS RegType
  9.  
  10. DEF FnGetDrive%
  11.   Registers.AX = &H1900
  12.   CALL Interrupt(&H21, Registers, Registers)
  13.   FnGetDrive% = (Registers.AX AND &HFF) + 65
  14. END DEF
  15.  
  16. PRINT "The current default drive is "; CHR$(FnGetDrive%)
  17.